home *** CD-ROM | disk | FTP | other *** search
/ Acorn Risc Technologies StrongARM CD-ROM / Acorn Risc Technologies StrongARM CD-ROM.iso / software / utils / lunch / !Lunch_Config < prev    next >
Encoding:
Text File  |  1992-08-25  |  4.8 KB  |  13 lines
  1.  
  2. -a$="Out to Lunch config":b$=a$:òa:îŶ:òb:à
  3. TYa=5:b=a:c=2:d=1:e=c:f=d:g=1:h=999:i=£:È−"XOS_ReadVarVal","LunchSetUp",,-1¸,,C%:çC%<0…
  4. Ö7È−"OS_ReadVarVal","LunchSetUp",j,80,0¸,,,,T%:çT%=1…
  5. êb=(!j)€&FFFF:çb<g☓b>h…
  6. þb=a
  7. 0Í:e=((!j)>>16)€&FF:f=((!j)>>24)€&FF:çf=e…f=0
  8. 0Í
  9. :=Í:k=b:$l=Ã(b):ãN%=12¸15:òc(a%,N%,0,1<<21):íN%:çe>=1€e<=4…
  10. fiòc(a%,e+11,1<<21,1<<21)
  11. ¨1Í:ãN%=17¸20:òc(a%,N%,0,1<<21):íN%:çf>=1€f<=4…
  12. Úòc(a%,f+16,1<<21,1<<21)
  13. äXÍ:È–X%,Y%,m:òd(a%,X%-96,Y%+128,-1):õ:òe(¤a(1)):ýn:çi…È−"XOS_CLI","RMKILL OutToLunch"
  14. Ròf:à
  15. p*Ýòe(R%):êX%,Y%,o,b%,c%,d%,e%:È−p:ȉR%Ê
  16. —
  17. É2::òg(q)
  18. ¬
  19. É3::òh(q)
  20. À
  21. É6::òi(q)
  22. Ô É9:òj(q)
  23. èÉ17,18:òk(q)
  24. ü Ë:È−r:á
  25. $Ýòg(B%):È−s,,B%:á
  26. L#Ýòh(B%):È−t,,B%:ç!B%=a%…n=¹:i=£
  27. já
  28. ~WÝòi(B%):êH%,I%,M%,X%,Y%,N%,F%,V%,u,v:H%=B%!12:I%=B%!16:M%=B%!8:X%=!B%:Y%=B%!4:ȉH%Ê
  29. º
  30. Éa%:ȉI%Ê
  31. ÎÉ0,1:òl(I%,M%)
  32. ìÉ3:ç¤b($w)<>¤b(c$)…
  33. 
  34.  
  35. òm($w)
  36. $Í:u=¤c:v=¤d:ç»($l)<>k☓u<>e☓v<>f…
  37. F‡È−x,11,d$+".LunchSetUp",&FEB:F%=­(d$+".LunchSetUp"):V%=»($l)+(u<<16)+(v<<24):Õ#F%,"SETEVAL LunchSetUp "+Ã(V%):Ù#F%:È−"OS_CLI","SETEVAL LunchSetUp "+Ã(V%)
  38. ŵ    Í:n=¹
  39. „/É6:òn(a%,5,X%,Y%,m,m):È−y,,z,X%+2,Y%+46:A=2
  40. ¾
  41. É5:çM%=2…
  42. Ò,òn(a%,5,X%,Y%,m,m):È−y,,z,X%+2,Y%+46:A=2
  43. ðÍ
  44. ú!É12,13,14,15:u=¤c:çu<>0€u=¤d…
  45. "òc(a%,u+16,0,1<<21)
  46. ,Í
  47. 6!É17,18,19,20:v=¤d:çv<>0€v=¤c…
  48. ^òc(a%,v+11,0,1<<21)
  49. hÍ
  50. rË
  51. |Ë:á
  52. Œ&Ýòj(B%):êe$,M%,B:òo(j):M%=j!8:ȉAÊ
  53. ÂÉ2:òp(B%,B):çM%=1€¬B…È−y,,z
  54. àË:á
  55. þBÝòk(B%):êf$,e$,R%,C,f%,D,W%,I%,X%,Y%,D%,L%,S%:D=B%!4:çD=g%…:á:
  56. &f%=B%!8:ȉB%!16Ê
  57. : É0::n=¹
  58. XÉ&400C1:òq
  59. lÉ&400C2:ç¤e(B%+28)=a$…n=¹
  60. €Ë:á
  61. fi"Ýòb:m=¤f(fl,ö$+" ("+Ãfi+")",2):á
  62. ÆHݤf(E%,e$,F%):êg$,R%:È−E:ç(F%€(1<<4))<>0…g$="Message from "+b$⇧g$=b$
  63. ø8!F=E%:$(F+4)=e$:È−"Wimp_ReportError",F,F%,g$¸,R%:=R%
  64.  FÝòf:È−"XOS_File",6,d$+"Scrap":$G="TASK":È−"Wimp_CloseDown",g%,!G:á
  65. \Ýòm(e$):êH,I,J,K,L:êŶ
  66. z îŶê:òr:á
  67. ☓PH=‰(d$+".LunchBase"):I=‰(d$+".Displays."+e$):çH=0…Ŷ1,"'LunchBase' not found"
  68. ¢ çI=0…Ŷ1,"'"+e$+"' not found"
  69. ¬_Ï#I=17:ç¾#I<>"Out to Lunch display"…Ŷ1,"The selected display is not an Out to Lunch module"
  70. ÀâÏ#I=0:È−x,11,d$+".Lunch",&FFA:J=­(d$+".Lunch"):õ:L=•#H:È−M,4,H,N,O¸,,,,K:È−M,2,J,N,K-L:ýÅ#H:Ï#J=¢#J-16:õ:L=•#I:È−M,4,I,N,O¸,,,,K:È−M,2,J,N,K-L:ýÅ#I:$j=e$+½10:È−x,10,d$+".Current",&FFF,,j,j+©(e$)+1:Ù#H:H=0:Ù#I:I=0:Ù#J:J=0:á
  71.     ‹/Ýòr:m=¤f(fl,ö$,2):çH<>0…È−"XOS_Find",0,H:H=0
  72.     °çI<>0…È−"XOS_Find",0,I:I=0
  73.     ºçJ<>0…È−"XOS_Find",0,J:J=0
  74.     Äá
  75.     âÝòl(I%,M%):çM%=2…á
  76.     ö-êN%,S%:È−P,121,0ŵ&80¸,S%:S%=S%=255:çM%=1…
  77. çI%=0…I%=1⇧I%=0
  78. (Í:N%=»($l):çI%=0…
  79. Fç¬S%…N%-=1⇧N%-=10
  80. PÌ:ç¬S%…N%+=1⇧N%+=10
  81. dÍ:çN%>=g€N%<=h…
  82. x$l=Ã(N%):òc(a%,2,0,0):i=¹
  83. „Í:á
  84. ´Ýòp(B%,B):çB%!0<>-1…
  85. È'$w=¤e(z+28+24*B%!0+12):òc(a%,5,0,0)
  86. Ü Í:B=£:á
  87. <ݤc:êI%:È−Q,a%,j,&3F0000,&220000:I%=!j:çI%<>-1…=I%-11⇧=0
  88. @<ݤd:êI%:È−Q,a%,j,&3F0000,&230000:I%=!j:çI%<>-1…=I%-16⇧=0
  89. |ùÝòa:êB%,F%,T%,L%:P=6:R=7:x=8:M=&C:S=&27:T=&2E:U=&2F:V=&45:W=&57:X=&42:Y=&400C1:Z=&400C2:aa=&400C3:ba=&400C4:s=&400C5:t=&400C6:ca=&400C7:da=&400C8:ea=&400C9:fa=&400CA:ga=&400CB:ha=&400CD:ia=&400CE:ja=&400CF:ka=&400D0:la=&400D1:ma=&400D2:na=&400D3
  90. ¼üy=&400D4:oa=&400D5:Q=&400D6:pa=&400D7:qa=&400D9:ra=&400DA:sa=&400DB:ta=&400DC:ua=&400E1:va=&400E4:wa=&400E6:xa=&400E7:ya=&400E8:za=&400F1:Aa=&40743:p=&406C0:r=&406C1:E=&406C2:Ba=&406C4:Þ G 4:Þ Ca 20:Þ Da 20:òq:Þ q &480:Þ j 80 : :Þ F &104 : :O=&1000
  91. LÚÞ N O:d$=¤g("<Lunch$Dir>"):òs:F%=‰(d$+".Current"):c$=¾#F%:Ù#F%:$G="TASK":È−"Wimp_Initialise",200,!G,a$¸,g%:n=£:Ea=&200:Þ Fa Ea:Ga=Fa+Ea:Ha=Fa:È−x,5,d$+".Sprites"¸T%,,,,L%:çT%<>1…Ŷ&20000,"'Sprites' file not present"
  92. (¡Þ Ia L%+20:!Ia=L%+20:Ia!4=0:Ia!8=16:Ia!12=16:È−T,266,Ia,d$+".Sprites":È−qa,,d$+".Templates":òt("Config"):l=q!172:$l="":w=q!268:$w=c$:q!64=Ia:È−Y,,q¸a%:È−ra:á
  93. cÝòs:êL%,O%,B%,N%,D%,M%,W%:B%=j:O%=0:õ:È−M,10,d$+".Displays",B%,1,O%,80,"*"¸,,,,O%:çO%<>-1…N%+=1
  94. J¶ýO%=-1:Þ z 28+(N%+1)*24:M%=z:$M%="":W%=©($M%)-2:M%?12=7:M%?13=2:M%?14=7:M%?15=0:M%!16=200:M%!20=44:M%!24=0:M%+=28:D%=0:O%=0:õ:È−M,10,d$+".Displays",B%,1,O%,80,"*"¸,,,,O%:çO%<>-1…
  95. ÌçD%<>N%-1…M%!0=0⇧M%!0=&80
  96. ÖUM%!4=-1:M%!8=%10001+(3<<12)+(7<<24):$(M%+12)=¤e(B%+20):ç©$(M%+12)>W%…W%=©$(M%+12)
  97. þM%+=24:D%+=1
  98. Í:ýO%=-1:z!16=176:á
  99. v-Ýòt(e$):$j=e$:È−sa,,q,Ha,Ga,-1,j,0¸,,Ha:á
  100. Æ!Ýòd(H%,X%,Y%,P%):êB%:çH%=-1…á
  101. eB%=j:!B%=H%:È−ga,,B%:B%!12=X%+B%!12-B%!4:B%!8=Y%-(B%!16-B%!8):B%!4=X%:B%!16=Y%:B%!28=P%:È−s,,B%:á
  102. f"ݤa(M%):êR%:È−ca,M%,q¸R%,q:=R%
  103. —IÝòc(H%,I%,E%,M%):êB%:B%=j:B%!0=H%:B%!4=I%:B%!8=E%:B%!12=M%:È−ha,,B%:á
  104. ÊÊÝòn(W%,I%,øJa,øKa,øLa,øMa):êB%,X%,Y%,Na,Oa,Pa:B%=j:!B%=W%:È−ga,,B%:X%=B%!4:Na=B%!20:Y%=B%!8:Pa=B%!16-B%!8:Oa=B%!24:B%!4=I%:È−ia,,B%:Ja=B%!8+X%-Na:Ka=B%!12+Y%+Pa-Oa:La=B%!16+X%-Na:Ma=B%!20+Y%+Pa-Oa:á
  105. ☓Ýòq:Ca!0=4:Ca!4=5:Ca!8=11:Ca!12=12:Ca!16=-1:È−"OS_ReadVduVariables",Ca,Da:Qa=(1<<(Da!0))*((Da!8)+1):Ra=(1<<(Da!4))*((Da!12)+1):á
  106. `Ýòo(B%):È−ja,,B%:á
  107. ⇦Kݤb(e$):êN%,B%:ãN%=1¸©e$:B%=–Áe$,N%,1):çB%>=97€B%<=122…Áe$,N%)=½(B%-32)
  108. º íN%:=e$
  109. Ø7ݤe(S%):êe$,P%:È”S%?P%>=32:e$+=½(S%?P%):P%+=1:Î:=e$
  110. < Ý¤g(e$):È−S,e$,q,&101:=¤e(q)
  111. ÿ